home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / bridge / MkBrush-Pict.rx < prev    next >
Encoding:
Text File  |  2001-10-20  |  1.1 KB  |  83 lines
  1. /*     arexx Script 
  2. */
  3.  
  4.     options results
  5.     parse ARG Port flag b
  6.     
  7.     ADDRESS value Port
  8.  
  9.     pp_GetWidthB
  10.     w=result
  11.  
  12.     pp_GetHeightB
  13.     h=result
  14.  
  15.     pp_GetDepth
  16.     d=result
  17.     
  18.     if w=0 then exit
  19.  
  20.     if d<24 then DO
  21.         pp_Psave "ram:palette.trash" 0
  22.     END
  23.  
  24.     IF flag=-1 then DO
  25.         pp_FindEmptyBuffer
  26.         flag=result
  27.         if flag=-1 then DO
  28.             pp_Warn "can't*find*empty|Buffer."
  29.             EXIT        
  30.         END
  31.     END
  32.  
  33.     pp_SetBuffer flag
  34.  
  35.     pp_GetWidth
  36.     if result~=0 then DO
  37.         pp_Request "This*Buffer*is*not*empty.|Do*you*want*to*erase*it*?"
  38.         if result=0 then DO
  39.             EXIT
  40.         END
  41.         ELSE DO
  42.             pp_ClearCurrentBuffer            
  43.         END
  44.     END    
  45.  
  46.     pp_new w h d
  47.     pp_GetWidth
  48.     IF result=0 then DO
  49.         pp_Warn "Not*enough*memory."
  50.         EXIT            
  51.     END
  52.  
  53.     IF D<24 then DO
  54.         pp_Pload "ram:palette.trash"
  55.         ADDRESS COMMAND
  56.         'delete >nil: ram:palette.trash'
  57.         ADDRESS value Port
  58.     END
  59.  
  60.     pp_GetBrushMode
  61.     BM=result
  62.  
  63.     pp_ClosestColor 255 255 255
  64.     White=result
  65.     pp_ClosestColor 0 0 0
  66.     Black=result
  67.  
  68.     pp_EffectOff
  69.     pp_SetBpen White
  70.     pp_SetApen Black
  71.     pp_SpareOnOff    
  72.     pp_Cls
  73.     pp_setBrushMode 2
  74.     pp_plot w/2 h/2
  75.     pp_SparetoStencil
  76.     pp_Cls
  77.     pp_SpareOnOff
  78.     pp_setBrushMode 3
  79.     pp_plot w/2 h/2
  80.     pp_setBrushMode BM
  81.  
  82.     EXIT    
  83.